home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)td.d64 / dumpnoncomm.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  116 lines
  1. 30 REM:ADAPTED BY CLIFFORD JANSEN, TPUG#9743
  2. 40 IFA=1THENA=2:GOTO2000
  3. 45 IFA=2THENA=3:GOTO1050
  4. 100 POKE53281,1:PRINT"[147][144]THIS IS A SCREEN-DUMP PROGRAM FOR":PRINT
  5. 110 PRINT"NON-COMMODORE PRINTERS. IT WAS WRITTEN":PRINT
  6. 115 PRINT"BY MICHAEL J. KERYAN AND IT APPEARED":PRINT
  7. 120 PRINT"IN MICRO MAGAZINE IN JUL.AUG.SEP. 1984.":PRINT
  8. 130 PRINT"BEFORE USING, LIST LINES 2110-2250 AND ":PRINT
  9. 140 PRINT"      ADAPT TO YOUR[146] PRINTER"
  10. 150 PRINT:PRINT"     AFTER ADAPTING RUN[146] BEFORE"
  11. 160 PRINT:PRINT"INSERTING A PICTURE-DISK(A ML. PROGRAM"
  12. 170 PRINT:PRINT"MUST BE LOADED)THEN FOLLOW INSTRUCTIONS"
  13. 180 PRINT"A KOALA-PICTURE CALLED 'PIC L PEANUTS'  CAN BE TRIED";
  14. 185 PRINT".  SUBMIT YOUR PICTURES TO  TPUG LIBRARY"
  15. 189 PRINT"PRESS RUNSTOP[146] OR RETURN[146]"
  16. 190 GETA$:IFA$=""THEN190
  17. 200 PRINT"[147]LOADING ML PROG":GOTO1000
  18. 1000 REM BASIC PROGRAM TO SUPPORT GDUMP
  19. 1005 REM PROVIDES COLOR PRINTOUTS
  20. 1010 REM     M.J.KERYAN  3-30-84
  21. 1020 :
  22. 1030 IF A=0 THEN A=1: LOAD" GDUMP+MOVE",8,1
  23. 1040 IF A=1 THEN A=2: GOTO 2000
  24. 1050 POKE 20491,PT: POKE 20492,SD
  25. 1060 POKE 20493,NT: POKE 20487,NP
  26. 1070 SYS GT
  27. 1080 IF TY=2 OR TY=4 THEN MD=PEEK(53270): MD=3-((MD AND 16)/16): POKE 20494,MD
  28. 1090 IF TY=3 OR TY=5 THEN POKE 20494,3
  29. 1100 IF TY=6 THEN POKE 20494,0
  30. 1110 GETK$:IF K$<>""THEN 1110
  31. 1120 GETK$:IF K$="" THEN 1120
  32. 1130 IF K$="P" THEN SYS 20480: GOTO 1800
  33. 1140 IF K$="E" THEN 1800
  34. 1150 C=0: IF K$="B" THEN C=1
  35. 1160 IF K$="N" THEN C=2
  36. 1170 IF K$="R" THEN C=3
  37. 1180 IF K$="G" THEN C=4
  38. 1190 IF K$="U" THEN C=5
  39. 1200 IF C=0 THEN 1110
  40. 1300 FOR M=0 TO 15: MM=21182+M: NN=21198+M
  41. 1310 POKE MM,CM(C,M): POKE NN,CM(0,M)
  42. 1320 NEXT M
  43. 1330 SYS 20480: GOTO 1110
  44. 1800 :    REM QUIT
  45. 1840 POKE 53265,(PEEK(53265)AND223)
  46. 1850 POKE 53270,(PEEK(53270)AND207)
  47. 1860 POKE 53272,21
  48. 1870 POKE 53280,6: POKE 53281,15: POKE 646,0
  49. 1880 PRINT"[147]": END
  50. 2000 POKE 53280,6: POKE 53281,15: POKE 646,0
  51. 2010 PRINT"[147]WHICH TYPE OF PICTURE?"
  52. 2020 PRINT
  53. 2030 PRINT"    1  SIMON'S BASIC"
  54. 2040 PRINT"    2  ULTRABASIC-64"
  55. 2050 PRINT"    3  DOODLE"
  56. 2060 PRINT"    4  KOALAPAINTER"
  57. 2070 PRINT"    5  SLIDESHOW"
  58. 2080 PRINT"    6  SLIDESHOW - INVERTED"
  59. 2090 INPUT"  ";TY
  60. 2100 IF TY<1 OR TY>6 THEN 2000
  61. 2110 :
  62. 2120 PT = 1:  REM PRINTER TYPE
  63. 2130 :        REM  NEC/PROWRITER    = 0
  64. 2140 :        REM  EPSON OR SIMILAR = 1
  65. 2150 :
  66. 2160 NP = 3:  IF PT=1 THEN NP = 2
  67. 2170 :        REM d  CODE
  68. 2180 :
  69. 2190 NT = 1:  REM INTERFACE TYPE
  70. 2200 :        REM  CONNECTION = 0
  71. 2210 :        REM  OTHERS     = 1
  72. 2220 :
  73. 2230 SD = 4:  REM SECONDARY ADDRESS
  74. 2240 :        REM FOR TRANSPARENT
  75. 2250 :
  76. 2260 GT = 21808 + (TY-1)*3
  77. 2270 IF GT>21820 THEN GT=21820
  78. 2280 IF TY=1 THEN 3000
  79. 2290 PRINT"[147]NOW PUT IN DISK WITH THE PICTURE FILE."
  80. 2300 INPUT"NAME OF PICTURE";NM$
  81. 2310 PRINT"AFTER PICTURE LOADS, PRESS:"
  82. 2320 PRINT"   P FOR BLACK/WHITE PRINT"
  83. 2321 PRINT
  84. 2322 PRINT"   COLOR PRINT:"
  85. 2323 PRINT"   B FOR BLACK RIBBON"
  86. 2324 PRINT"   N FOR BROWN RIBBON"
  87. 2325 PRINT"   U FOR BLUE RIBBON"
  88. 2326 PRINT"   R FOR RED RIBBON"
  89. 2327 PRINT"   G FOR GREEN RIBBON"
  90. 2329 PRINT
  91. 2330 PRINT"   E TO EXIT"
  92. 2340 DIM CM(5,15)
  93. 2350 FOR I=0TO5: FOR J=0TO15
  94. 2360 READ MM: CM(I,J)=MM: NEXTJ: NEXTI
  95. 2370 IF TY=4  THEN LOAD "?"+NM$+"*",8,1
  96. 2380 IF TY<>4 THEN LOAD NM$+"*",8,1
  97. 2900 :
  98. 3000 REM CREATE A SIMON'S BASIC PROGRAM
  99. 3010 Q$=CHR$(34)
  100. 3020 PRINT"[147]1 IF A=1THENA=2: LOAD"Q$" GDUMP+MOVE"Q$",8,1"
  101. 3030 PRINT"2 IF A=0 THEN A=1: GOTO 7
  102. 3040 [153]"3 POKE 20491,"PT" :POKE 20492,"SD
  103. 3050 [153]"4 POKE 20493,"NT" :POKE 20487,"NP" :SYS 21808"
  104. 3060 [153]"5 A=PEEK(53270): A=(A AND 16)/16"
  105. 3070 [153]"6 A=3-A: POKE 20494,A: SYS 20480: END"
  106. 3080 [153]"7 REM APPEND YOUR PROGRAM HERE"
  107. 3090 [153]"SAVE"Q$"SIMON.GDUMP"Q$",8"
  108. 3100 [151] 631,19: [129] A[178]632[164]639: [151] A,13: [130] A
  109. 3110 [151] 198,9: [162]
  110. 4000 [131] 0,5,32,10,64,20,1,40,159,165,90,130,219,135,80,255
  111. 4010 [131] 15,0,0,0,0,0,0,0,0,0,0,12,13,0,0,3
  112. 4020 [131] 0,0,0,0,0,0,0,2,4,15,0,0,0,0,0,0
  113. 4030 [131] 0,0,15,0,9,0,0,0,6,0,9,0,0,0,0,0
  114. 4040 [131] 0,0,0,5,0,15,0,0,2,0,0,0,0,9,0,0
  115. 4050 [131] 0,0,0,11,10,0,15,0,0,0,0,0,0,0,10,0
  116.